home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Creative Computers
/
Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso
/
commercial
/
inovatronics
/
edgedemo
/
edgeeditor
/
rexx
/
menu_editdefmac.edge
< prev
next >
Wrap
Text File
|
1994-11-17
|
663b
|
34 lines
/*
** $VER: Menu_EditDefMac.edge 1.0 (Friday 22-Oct-93 12:55:22)
**
** Open a editor window and load the default macro into it
**
** Written by Thomas liljetoft & Inovatronics
*/
options results
/* check to see if it exists */
if exists('ram:edge.macro') then do
/* is the current window empty? */
getenvvar _fe_size
if result>0 then do
/* open a new window */
new
if rc==0 then do
/* if it opened, talk to it and tell it to load the default macro */
address value result
open """ram:edge.macro"""
end
end
else do
open """ram:edge.macro"""
end
end
/* if not then complain */
else requestnotify """There is no default macro."""